home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
301-325
/
disk_319
/
cnewssrc
/
uupc.lzh
/
vsprintf.c
< prev
Wrap
C/C++ Source or Header
|
1990-02-06
|
4KB
|
187 lines
/* Portable vsprintf by Robert A. Larson <blarson@skat.usc.edu> */
/* Copyright 1989 Robert A. Larson.
* Distribution in any form is allowed as long as the author
* retains credit, changes are noted by their author, and the
* copyright message remains intact. This program comes as-is
* with no warranty of fitness for any purpose.
*
* Thanks to Doug Gwen, Chris Torek, and others who helped clarify
* the ANSI printf specs.
*
* Please send any bug fixes and improvements to blarson@skat.usc.edu .
* The use of goto is NOT a bug.
*/
/* Feb 7, 1989 blarson First usenet release */
/* This code implements the vsprintf function, without relying on
* the existance of _doprnt or other system specific code.
*
* Define NOVOID if void * is not a supported type.
*
* Two compile options are available for efficiency:
* INTSPRINTF should be defined if sprintf is int and returns
* the number of chacters formatted.
* LONGINT should be defined if sizeof(long) == sizeof(int)
*
* They only make the code smaller and faster, they need not be defined.
*
* UNSIGNEDSPECIAL should be defined if unsigned is treated differently
* than int in argument passing. If this is defined, and LONGINT is not,
* the compiler must support the type unsingned long.
*
* NOVOID should be defined if the compiler does not allow the "void *"
* datatype. "char*" will be used instead.
*
* Most quirks and bugs of the available sprintf fuction are duplicated,
* however "*" in the width and precision fields will work correctly
* even if sprintf does not support this, as will the %n format.
*
* Bad format strings, or those with very long width and precision
* fields (including expanded * fields) will cause undesired results.
*/
#define ULONG unsigned long
#ifdef OSK /* os9/68k can take advantage of both */
# undef ULONG
# define ULONG unsigned int
# define LONGINT
# define INTSPRINTF
#endif /* OSK */
#ifdef MCH_AMIGA
# define INTSPRINTF
# if sizeof(long) == sizeof(int)
# define LONGINT
# endif
#else
# ifdef AMIGA /* Lattice can take advantage of both */
# define INTSPRINTF
# define LONGINT
# endif /* AMIGA */
#endif /* !MCH_AMIGA */
#ifdef NOVOID
typedef char *pointer;
#else
typedef void *pointer;
#endif /* NOVOID */
#ifdef INTSPRINTF
# define Sprintf(string,format,arg) (sprintf((string),(format),(arg)))
#else
# define Sprintf(string,format,arg) (\
sprintf((string),(format),(arg)),\
strlen(string)\
)
#endif /* INTSPRINTF */
#ifdef __STDC__
# include <stdarg.h>
#else
# include "varargs.h"
#endif /* __STDC__ */
typedef int *intp;
int vsprintf(dest, format, va_alist)
char *dest;
register char *format;
va_dcl
{
#ifndef LONGINT
char longflag = 0;
#endif /* !LONGINT */
register va_list args;
register char *dp = dest;
register char c;
register char *tp;
char tempfmt[64];
va_start(args); /* args = (char *) &va_alist; */
tempfmt[0] = '%';
while (c = *format++) {
if (c=='%') {
tp = &tempfmt[1];
continue_format:
switch(c = *format++) {
case 's':
*tp++ = c;
*tp = '\0';
dp += Sprintf(dp, tempfmt, va_arg(args, char *));
break;
case 'u':
case 'x':
case 'o':
case 'X':
case 'd':
case 'c':
case 'i':
*tp++ = c;
*tp = '\0';
#ifndef LONGINT
if (longflag) {
dp += Sprintf(dp, tempfmt, va_arg(args, ULONG));
longflag = 0;
} else
#endif /* !LONGINT */
dp += Sprintf(dp, tempfmt, va_arg(args, int));
break;
case 'f':
case 'e':
case 'E':
case 'g':
case 'G':
*tp++ = c;
*tp = '\0';
dp += Sprintf(dp, tempfmt, va_arg(args, double));
break;
case 'p':
*tp++ = c;
*tp = '\0';
dp += Sprintf(dp, tempfmt, va_arg(args, pointer));
break;
case '-':
case '+':
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
case '.':
case ' ':
case '#':
case 'h':
*tp++ = c;
goto continue_format;
case 'l':
#ifndef LONGINT
longflag = 1;
*tp++ = c;
#endif /* !LONGINT */
goto continue_format;
case '*':
tp += Sprintf(tp, "%d", va_arg(args, int));
goto continue_format;
case 'n':
*va_arg(args, intp) = dp - dest;
break;
case '%':
default:
*dp++ = c;
break;
}
} else
*dp++ = c;
}
*dp = '\0';
return( dp - dest );
}